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1. GENERAL DESCRIPTION 

All Cobol S~Language programs have associated with them, a BASE 
Register and a LIMIT Register. The area between the BASE and the 
LIMIT is to be used as a data space only. All program code, organized 
in segment form is stored at any available location in memory. 

The data space include a non- over lay able area which contains the 
COP Table and various other parameters such as Editing Masks and 
Record Areas. 

Various parameters necessary for the running of the S-Langauge 
object code and maintained by the MCP are stored beyond the 
Limit Register. 

A typical cobol program layout in memory is as follows: 



BASE REGISTER. 



"ft 



EDIT TABLE (8 CHRS) 
SStl TABLE 



<$ 1ST ENTRY (C0PX=1) 



SPECIAL REGISTERS 
' r DATANAME MONITOR 
_J~ „ s ™B0LS__ 
" EDIT MASKS 

DATA SEGMENT 
ZERO AREA 



-&- 



i 



f_ TRASH (INTERMEDIATE RESULTS) 
f A^D^"S^STORE(PRE IS ENCE JlHKING) 



— — -**- 



ILIMIT REGISTER--* 



OVERLAYABLE 
DATA AREA 



REINSTATE INFO 
& RUN STRUCTURE 



— H5-- 



DATA SEGMENT ZERO BASE 



: <j STACK- BASE 

STACK LIMIT 

EXTENDABLE STACK LIMIT 
(BOJ ATTRIBUTE) 



EXTENDABLE LIMIT REG. 
(BOJ ATTRIBUTE) 



S-CODE 



\_ 



s \ 



■""wi-A. 
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1.1 Program Parameters f 

The parameters pertaining to a particular program are listed 
below.. The number of bits to contain the parameter is listed 
below the parameter name. 

I BDISPB 1 Branch displacement container size 



1 pSEGZ | Base of Data Segment vZero : 



24 

| stack-pointer! 

24 

| STACK- SIZE 
5 



Base address of stacfcf 



Size of the stack 



| COP-BASE | rBase address of COP table 

24 Wtm,. "'" 

1 COPB 



COP entry container size 



J SEGB J Data segment number container size 



5 

DISPB 



.•-•. 5 
&NB 



Data displacement container size 



Data length container size 



COPXB 



COP index container size 
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2.0 FORMATS 

2.1 S-Instruction Format 

Each COBOL S-Instruction consists of an S-operator followed 

by arguments consisting of a variable number of bits. The 

format and interpretation of these arguments is specified 

by the S-operator and is described in detail by the specification 

of the individual operators. An example of one such instruction 

format is illustrated below. 



J«~3 OR 9->f<-VARIABLE->J<-C0PXB-"> 
1 OP f O PND 1 COPX 



I 



r; 



INDEX INTO COP TABLE 
INDEX INTO COP TABLE OR LITERAL 



2.1.1 S-Operators 



The most frequently iisedf S~operators are encoded in a 3-bit 
S-operator denoted as OP1.-" If 0Pl=7, the operator is encoded 
in the next 6 bits denoted as 0P2. If 0PK7, 0P2 is omitted, 



2. 1.2 OPND 



An operand is normally referenced indirectly through a table 
containing the attributes of the operand. An argument which 
references: an operand in this manner is denoted as COPX. In * 
special cases > where specified, an operand could be either 
contained in the instruction as a literal or could be refer- 
enced indirectly through the table. An argument of 
this type is denoted as OPND. The first bit of OPND is denoted 
•as LITFLG and is used to indicate a literal string or COPX 
fas follows: 



| 1 | LITERAL STRING h l 2 \ 




COPX 



•LITFLG 
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■2.1.3 Literal String 



When LITFLG specifies a literal, the literal string which 
includes the literal type (LTYPE), the literal length (LLGTH), 
and the literal (LSYMB) itself in that order are included in 
the code stream immediately following the LITFLG. The 
format is as follows: Hi,. ,#IIifii©u 



| LTYPE j LLGTH1 



LLGTH2 



LSYMB 



BITS 2 3 8 

^pIesent IF LLGTH1=0 

The literal type is specified by a 2rl>it LTYPE as follows: 

LTYPE = 00 =, Unsigned 4-bit 
01 » Unsigned 8-bit 
. 10 = Signed 4-bit (sign is MSD) 
11 = Reserved 

The length of tlie-f'literal ; ln binary is encoded in LLGTHl and 
LLGTH2. If the literal .is < 8 digits or characters, its 
length is encoded in LLGTHl and LLGTH2 is omitted. If the 
literal is >: 8 digits or characters, its length is encoded 
in LLGTH2 with LLGTHl=0. The maximum literal length is 255 
digits or characters excluding the sign. 

2.1.4 Operand Index (COPX) * 

The argument COPX is an index value used to index into the 
fCurrent Operand Table (COP Table). The number of bits (COPXB) 
used to index into the COP Table is a function of the maximum 
number of COP Table entries required for the source program. 
|!|r VFor example, a COP Table consisting of between 513 and 1024 entries 
would require 10 bits. 

the address of an entry is calculated by multiplying the value 
■: COPX by the value "COPB" and then adding the result to the 
base address of the COP Table. 

\, iU - A COPX value of zero specifies that the COP Table entry is con- 
tained in line in the S-Instruction itself rather than in the 
COP Table. Note: The base address of the COP Table points to 
an unused entry* 
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2.1.5 In-Line COP Information 

~— — — — — — ————______ fe§Sn 

A COPX value of zero specifies that the COP Table information is 
contained in-line in the S- Instruction itself rather than in the 
COP Table. 



The format for in-line COP information differs from its COP Table 
format (see section 2.2) when subscripting or indexing is required. 

The format for in-line COP information is as follows: 



[*-SEGB-fDISPB~4~LENB- 



•;r 



DATA ADDRESS 
SEG# I DISPL. 



DATA 
LENGTH 



SUBSCRIPT- (DATA 
INDEX FLAG ! TYPE, 



ASCII 
FLAG 



^4— -2 -COPXB^r— LENB — jjcCOPXB^ — LENB £ 



NO. OF 
SUBSCRIPTS 
QR I ND -EXE&, 



0; ^ INDEX 
1: SUB- 



COPXl 



SCRIPT 



SUBSCRIPT 
FACTOR 1 



C0PX2 



SUBSCRIPT 
FACTOR 2 : 



Sft%-L,'!;ffll|k H; 'V ' ' (-Present if number 

of subscripts >1 
JPresent if subscript- 
index Flag=l 



.Present if number o: 
of subscripts>2 



|C0PXB"4~ — -'LENB— ^~DISPB->| 



COPX3 



SUBSCRIPT 
FACTOR if 



TABLE 
BOUND 



LPresent if subscript- 
index FLAG=1 

LPresent if number 
of subscripts >3 . 

Note: C0PX1, C0PX2 , or COPX3 may be in-line entries but may not be 
subscripted or indexed." 

Note: A COPX for each index value or subscript (up to 3) must be present. 



Note: A COPX for each subscript value (up to 3) is immediately 
followed by a subscript factor. 
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2.2 Current Operand Table (COP ) 

The COP Table consists of a set of entries, which contain the 
attributes of a variable. The width of one entry is a function 
of the source program and is determined by the number of bits 
required to express -its attributes of segment number, displacement 
and length plus 4 bits for expressing a subscript flag, data 
type and ASCII flag. . '^.ife. 

When the attributes exceed one entry t multiple entries are 
used to accommodate the additional information. Any reference 
to a multiple entry attribute points to the first of its entries. 

The format of the COP Table is af "follows r 



1^ 



COPB 



" : * 

|<-SEGB->[«DISPB->|< LENB •>(<: 1 >|<^ 2 >|<f 1 ~>\ 



DATA ADDRESS 
SEG. #1 DISPL. 



•DATALENGTH 



BITS 1 to ? 1 to' 2X 



ll! 18 



SUBSCRIPT- 
INDEX FLAG 



DATA TYPE 



ASCII 
FLAG 



Mf^lr-*- 



-LENB — 4— LENB — *j< LENB — ^r-DISPB 4 



"SoToF^ |0: 
SUBSCRIPTS jl: 
61ft INDEXES "| 



INDEX 
SUB- 



SCRIPT) 




SUBSCRIPT 
FACTOR 1 



SUBSCRIPT 
FACTOR 2 



SUBSCRIPT 
FACTOR 3 



TABLE 
BOUND 



T 



Present if subscrip 
index FLAG=1 



.Present if number 
of subscripts>_3 

Present if number 
of subscripts>_2 

..Present if number 
of subscripts>l 



"Present if subscript- 
index Flag=l 
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2,2.1 ' Segment Number 



Segment number is expressed in binary and specifies the data 

segment number of the operand. The container size (SEGB) is 

function of the maximum number of data segments specified in 
the source program. 



2,2,2 Displacement 



Displacement is expressed in binaryjahd ...specifies the digit 
displacement of the data from the BASE of the data segment. 
All data is stored beginning at a 140D 4; BIT address. The 
container size (DISPB) is a function of the maximum data 
displacement specified in the source program. 



2.2.3 Data Length 



Data Length is expressed in binary and specifies the number of 
digits or characters in the "data item excluding the sign. The 
container size (LENB) is a function of the maximum length speci- 
fied in the source program. 



2.2.4 Data Type t^^mJ^k^ 

Data type specifies the type of data as follows: 

00 « Unsigned 4-bit 
01= Unsigned 8-bit 
10 -Signed 4-bit (sign is MSD) 

ll^ijlsigned; 8-bit (sign over MSD) 

2.2.5 Subscript - Index Flag 

The subscript-Index Flag bit is true to indicate subscripting or 
indexing and false otherwise. When true the next following 
,£■'-,' jentry(s) contain the necessary subscripting - indexing factors. 

2.2.6 ^HS^^^l.^l 1 ^-g. < r- r J-Pl: l s or Indexes 

^WJien subscripting or indexing is indicated by the subscript-index 
flag, the number of subscripts or indexes required for the variable 
is specified as follows: . • " 

00 = One 

01 = Two 

10 = Three 

11 » UNDEFINED 

The bit immediately following this field indicates the appropriate 
operation - indexing or subscripting. 
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2.2.7 Subscript Factors - \ 

When. subscripting is indicated, 1 to 3 fields of LENB bits con- 
taining the binary factor by which each subscript value is to 
be multiplied . to obtain the proper digit address 'is required. 
The factor is the digit displacement between elements of the 
table. The value 1 is subtracted from the subscript Value prior 
to multiplying by the factor. The subscript value may be signed. 

If the subscript value is zero or is negative, its absolute value 
is u&ed and an error communicate will be issued, only if the final 
result exceeds the table-bound. 

If the binary equivalent of the multiplied subscript value exceeds 
24 bits, overflow is ignored. 

If the sum of the multiplied subscript values exceeds the value 
given by table-bound, an error communicate will be issued. 

Note: Literal subscript values1:are optimized by the compiler by 
building a new descriptor in-line in the S-Instruction. - 

A COPX for each subscript value immediately follows the primary 
COPX in the S-ins true Lion. A subscript variable must not itself 
;■ be subscripted;/,pr indexed. 

2.2.8 Indexing 

When indexing is indicated", a" COPX for each index value (up to 3) 
immediately follows the primary COPX in the S-instruction. An • 
index variable must not itself be indexed or subscripted. 



An index value is contained in a 24-bit field. The value consists 
of six 4-bit decimal digits and is unsigned. The value is converted 
,to, binary and combined with the binary data address at execution time 

If the sum of the index value exceeds the table bound then an error 
communicate will be issued. 
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2.2.9 Table Bound 

Table bound is a binary value used to specify the limit value 
for subscripting and indexing. Its container "size is DISPB 



2.2.10 ASCII Flag 



MVA 


MMVA 


n Hi CAT 


CPA 


MVS 


MMVSfft!:,. 


■■■■■ SMVN 


SPA 


MVN 


.;•;";' MMVN 


MVT 


CPM 


MNZ 


; " : ' ; :mmvz ' 


EXA 





The ASCII flag bit of the destination field influences the 
execution of certain, code sensitive S -Language instructions. 
These, instructions are: ••;.■-' n Hi. '/jlllfll 

ADD 
SUB 
INC 
DEC 
, INC1 
DEC1 ' 
DIV 

The ASCII flag bit does not influence the execution of the 
following code sensitive instructions in which EBCDIC is assumed 

EDT ^KteiKlk m 

EDTE 
CLASS 
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3.0 



INSTRUCTION SET 



Arithmetic 




Name 


Nmemonic 


Increment 


INC 


Add 


ADD 


Decrement. 


DEC 


Subtract 


SUB 


Multiply 


MUX. 


Divide 


DIV ; , 


Increment by one 


: :,,,INCfS 


Decrement by one 


:;. DEC1 


Data Movement |'; 




Name 


Nmemonic 


Move Alphanumeric 


%, MVA 


Move spaces 


Hi MVS 


Move numeric ^lllSI|f|ilil 


MVN 


Move zeros 


MVZ 


Multiple Move Alphanumeric 


MMVA 


Multiple Move Spaces 


MMVS 


Multiple Move Numeric 


MMVN 


Multiple Move Zeros 


MMVZ 


Concatenate 


CAT 


Edit|| ; '' f fifci|P r 


EDT 


Edit with Explicit Mask 


EDTE 


Scale Move Numeric 


SMVN 


•■Examine'-;. 4W 


EXA 



pP Arguments 



OP 



OPNDl, COPX1 

POPND1, COPX1, COPX2 

OPNDl, C0PX1 

OPNDl, OPND2, COPX1 

OPNDl, COPX1, COPX2 

OPNDl, 0PND2, COPX1 
r.fiPYi 



MOVE TRANSLATE 



MVT 



COPX1 
COPX1 



Arguments 

OPNDl, COPX1 
COPX1 

OPNDl, COPX1 
COPX1 

N, OPNDl, COPX1, ...COPXN 

N, COPX1, ...COPXN 

N, OPNDl, COPX1, ...COPXN 

N, COPX1, ...COPXN 

N, COPX1, OPNDl, OPNDN 

OPNDl, COPX1, DADDR 

OPNDl, COPX1. MASK 

OPNDl, COPXl, V, SCL 

M, T, COPXl, OPNDl, COPX2 

OPND2 

V, OPNDl, COPXl 
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3.0 



Instruction Set (Cont'd) 



Branching 


- 


Name 


Nmemonic 


Branch on overflow 


BOF 


Set overflow 


QFV 


Branch Unconditionally 


BUN 


Perform Enter 


PERF 


Perform Exit 


PXIT 


Enter 


NTR 


Exit' 


XIT 


Go to Depending 


GTD 


Altered Go to Paragraph 


GOPAR 


Alter 


ALTER 



OP ffl!i f Arguments 

.StSlm, V, BADDR 1 
V. 

BADDR 
^l§li' KviBADDR 
K 

"•baddr 

copx1, n, bdisp,.. .bdispk 

DADDR 
DADDR, ACON 



Name 



Conditionally Branching 

Nmemonic 



Compare Alphanumeric 

Compare Numeric j':§§:: & ,, 

Compare for zeros i|| 

Compare for Spaces ; I 

Compare for Class 

Compare Multiple i; l| 

Compare Repeat 



CPA 
CPN 
ZRO 
SPA 

CLASS 
CPM 

CRPT 



OP Arguments 

OPND1, COPX1, R, BADDR 

OPND1, C0PX1, R, BADDR 

COPXl, R, BADDR 

COPX1, R, BADDR 

COPXl, C, BADDR 
BADDR, COPXl, Rl, OPND1, 
...Rn, OPNDn, Rk 
OPND1, COPXl,. R, BADDR 



^Miscellaneous 



uName' 



Communicate 
(Fetch Communicate 
^Message Pointer 
Convert 
Load Data Segment 



Nmemonic 

COMM 
FCMP 

CNV 
LDS 



OP Arguments 

COPXl 
DADDR 

0PND1, DADDR 
DSECN, DADDR 
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3 . 1 Arithmetic Operands and Instructions 

Arithmetic operands can have any of the .following formats: 

1. Unsigned 4-bit ^. >.. 

2. Unsigned 8-bit 

3. Signed 4-bit (sign is MSD) 

4. Signed 8-bit (sign over MSD) 

There is no restriction as to type of operand permitted in 
an operation. 

All fields are addressed by pointing to the most significant 
bit of the most significant unit which in the case of a signed 
field is the sign. nlr 

All fields are considered to be comprised of decimal integers. 

The absolute value is stored if the-xeceiving field is unsigned. 

Unsigned fields are considered positive. 

When signed format is specified for the receiving field for 
any arithmetic operation, the sign position is set to 1100 
for a positive, result and to 1101 for a negative result. If 
the result is zero, the sign is set to 1100. 

Four-bit operands are interpreted in units of four bits. When 
a signed operand is specified, the sign is interpreted as a 
separate and leading (leftmost) 4-bit unit which is not in- 
cluded in the statement of length. 

Eight-bit operands are interpreted in units of eight bits. 
When a signed operand is specified, the sign is interpreted as 
^v : being contained in the leftmost four bits of the leftmost 8-bit 

, jfp- ; '''1ini t . '""*-' ' 

■■,_ The length of the operand field specifies the number of 4-bit 
or 8-bit units. 

When eight bit units are specified for the receiving field of 
'"'■\:}J: ••••••.,. an arithmetic operation, the leftmost four bits of each 8-bit 

'"^/^ unit, except the unit carrying a sign, is set to 1111 if EBCDIC 
or to 0011 if ASCII. 

The value of an 8-bit unit is carried in the rightmost four 
bits of the unit. Its value is an defined below for the 4-bit 
unit. The leftmost four bits, except for a sign, are ignored. 
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3.1. ■ 



Cont'd 



The value and sign interpretation of a 4-bit unit is as 
f o 1 lows : 



UNIT 



VALUE 



SIGN; 



0000 







^lliJS 


0001 




1 


+ 


0010 




2 


+ 


0011 




3 


+ 


0100 




4 


'Hi liWi 


0101 




5 „>„. 


: llf§ r 


0110 




6 llfc. 


+ 


0111 




.7 


%%. ? r 


1000 




tfilBlif! 


+ 


1001 




'fii&;;"^" 


+ 


10L0 


Whcle fined ;. 


+ 


1011 


Undefined iU - 


+ 


1100 


,:,. Unde 


;f ined 


+ 


1101 S 


IftUndc 


if iriecl 


- 


1110 • 


Unde 


if ined 


+ 


1»*,,. 


„' H liMd<E 


joined 


+ 



In addition and subtraction, when the field length of the 
result is shorter than either of the operands, the correct 
result is stored if it can fit. Results generated when 
the result field is not sufficient to contain the result 
are not;^ specified. When the result field is longer than 
the length of ' the result, leading zero units are stored. 

Irv||hre^ address add, three address subtract and in multi- 
ply, total or partial overlap of the first two operands is 
permitted. Results generated when the result field totally 
or partially overlaps either of the operand fields ar c not 
specified. 

■In two address add and subtract total overlap is permitted. 
Results generated when the result field partially overlaps 
the first operand field are not specified. Note that total 
overlap implies that the two types of fields is identical. 

No overlap of operands nor result fields are permitted in 
divide. Results generated under any condition of overlap 
are not specified. 
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3.1.1 Add Three Address 



ADD OPND1, COPX1, COPX2 



Algebraically add an addend denoted by OPND1 to an 
augend denoted by COPX1 and store the sum in tfte;^;:^ 
location denoted by C0PX2. 



3.1.2 Subtract Three Address 



SUB OPND1, OPND2, ;.COPXl 



Algebraically subtract a subtrahend denoted by OPNDl 
from a minuend denoted by 0PND2 and ^tore the dif- 
ference in the location denoted by COPXl, 



3.1.3 Add Two Address [~INC OPNDl, COPX 1_ 



Algebraically add an addend denoted -by OPNDl to an 
augend denoted by COPXl and store the sum in the loca- 
tion denoted by COPXl, 



3.1.4 Subtract Two Address 



DEC OPNDl, COPXl 



Algebraically subtract; a subtrahend denoted by OPNDl 
from a minuend denoted by COPXl and store the dif- 
ference in the location denoted by COPXl. 



3 - 1 * 5 Multiply [MUL OPNDl, COPXl, COPX2 j 



Algebraically multiply a multiplicand denoted by COPXl 
by a multiplier denoted by OPNDl and store the product 
in the location denoted by C0PX2. 

The .result fie Id length is the sum of the lengths of 
the ..two operands and must be denoted by COPX2. 



The result field will always be either signed 4-bit 
; format or unsigned 4-bit format. 
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3.1.6 Divide ( DIV OPND l, O PND2 , COPXl j i " 

Algebraically divide a dividend denoted by OPND2 by a 
divisor denoted by OPNDl and store the quotient in location 
denoted by COPXl. Store the remainder in the -location • 
denoted by OPND2. 

The result field length is the difference of the lengths 
of the two operands and must be denoted by COPXL., 

Results are not specified if the length of the dividend is not 
greater than the length of the divisor. 

If the absolute value of the divisor is not greater than the absolute 
value of an equivalent number of leading digits of the dividend, the 
result is undefined. 

Division by zero results in an overflow toggle being set. 

The sign of the remainder is that of the original dividend. 

The dividend field will always be either signed 4-bit format or 
unsigned 4-bit fo^mat.^||;^||iu ;h 

3#1 * 7 Increment by One flNC.l COPXll 

Algebraically add the positive integer one to an augend denoted 
by COPXl and store the result in the location specified by COPXl. 



3,1.8 Decrement by One | DEC COPXll 



Algebraically subtract the positive integer one from a minuend 
denoted by COPXl and store the result in the location specified 
by COPXl. 
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3; 2. Data Movement Operands and Instructions '"_ 

In general, fields involved in data movement operations can have 
any 'of the following formats: 

1. Unsigned 4-bit 

2. Unsigned 8-bit '•&/ .-,. . ; 

3. Signed 4-bit (sign is MSD) 

4. Signed 8-bit (sign over MSD) 

Any restrictions as to the type of fields permitted in an opera- 
tion are specified under the description of the particular opera- 
tion. 

See section 3.1 Arithmetic Operands and Instructions for a 
description of the four types of fields. 

For multiple move operations;, the number of destination fields 
(or origin fields when applicable) is specified by a 4-bit binary 
value N. The value ranging fromiOOOO to 1111 is used to indicate 
1 to 16 destinations. 

Note that the destination fields for a multiple move operation 
need not have. ; the same data type nor data length. 

Totally or partially overlapped fields are not permitted, unless 
specifically specified by the individual instruction. 
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3 ' 2 * 1 Move Alp han umeric 1 MVA OPNDl , COPxT] 

Move 8-bit or 4-bit units from the origin location denoted 
by OPNDl to the destination location denoted by COPXl, 

The data type of the destination field is;;; ignored and is 
assumed to be unsigned 8-bit. . - 

If the data type of the origin field is 4-bit, each 4-bit unit 

with the exception of the sign, if signed, is moved to the destination 

with 1111 if. EBCDIC or 0011 if ASCII appended to the left of 

each 4- bit unit. 

If the data type of the origin 'field, is ""''l^ bit, each 8-bit 
unit is moved unchanged to the destination. 

If the destination length is greater in size than the source 
length, the destination field is filled in on the right with 
trailing spaces (0100 0000 if EBCDIC or 0010 0000 if ASCII). 

If the destination length is lesser in size than the source 
length, the source data is truncated on the right. 

Overlapping operand fields are permitted if the destination field 
is at least f3; character; displaced and is at a higher addressed 
location than the original field. The data type of both fields 
must be 8-bit. It can be assumed' that the source is moved 3 
characters at a time into the destination field and that the move 
is from left to right. 



3.3.3 Move Spaces MVS COPXl 



Bll-the destination field denoted by COPXl with spaces (0100 0000 
if EBCDIC or 0010 0000 if ASCII). 

§Tne data type of the destination field is ignored and is assumed 
Stb" be unsigned 8-bit. 
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3.2.3 Move Numeric j MVN OPNDl , COPXl ' 



Move 8-bit or 4-bit units from the origin location denoted 
by OPNDl to the destination location denoted by COPXl * 

If the destination field is signed, it receives either the 

sign of the origin 'if the origin is signed, or 1100 if the 
origin is unsigned. 

If the destination field is unsigned, the sign of the origin 
is ignored. "Wiff^lmSB^m^. 

If the data type of the destination field is 8-bit, the leftmost 
four bits of each 8-bit unit except for the sign position if 
signed, are set to 1111 if EBCDIC or to 0011 if ASCII regardless 
of the data type of the origin /field. ;.;:| 

If the data type -of the destination field is 4-bit, the 
leftmost four bits of each source 8-bit unit are ignored and 
only the rightmost 4-*bits are moved. 

If the destination length is greater in size than the source 

length, the destination field is filled in on the left with 

leading zeros of appropriate type (1111 0000 if EBCDIC, 
0011 0000 if ASCII or 0000 if 4-bit. 

If the destination length is lesser in size than the source 
length, the source|clata is truncated on the left. 

Note that a sign is placed in the leftmost position of a field. 

Overlapping operand fields are permitted if the destination 
|field is at least 6 digits displaced and is at a higher addressed 

location than the original field. The data type of both fields 

must be 4-bit. It can be assumed that the source is moved 6 
|$£gits at a time into the destination field and that the move is 

from left to right. 



3.2.4 Move Zeros MVZ COPXl 



Fill the destination field denoted by COPXl with zeros of the 
appropriate type (1111 0000 if EBCDIC, 0011 0000 if ASCII or 
0000 if 4-bit). 

If the destination field is signed, 1100 is placed into the sign 
position. 



BURROUGHS CORPORATION COMPANY CONFIDENTIAL PAGE 19 

SYSTEMS M &. E GROUP COBOL S- LANGUAGE 

SMALL SYSTEMS PLANT P.S. #2201 6729 



3.2.5 Multiple Move Alphanumeric | MMVA N, OPNDl, COPXl. . .COPXN 



Move 8-bit or 4-bit units from the origin location denoted by 
OPNDl to each of the N destination locations denoted by COPXN. 

The rules specified for Move Alphanumeric are applicable. 

3.2.6 Multiple Move Spaces | MMVS N, COPXl. TT'COPXN 1 



Fill each of the N destination f ieldsjdenoted by COPXN with 
spaces. 

The rules specified for Move Spaces are applicable. 



3.2.7 Multiple Move Numeric | MMVN ; N , OPNDl , COPXl . . . COPXN 



Move 8-bit or 4-bit units from the origin location denoted by 
OPNDl to each of the destination locations denoted by COPXN. 

The rules specified for Move Numeric are applicable. 



3.2.8 Multip le Move Zer o ( MMVZ N , COPXl , . . . COPXN 



Fill each of the N destination fields denoted by COPXN with 
zeros of the appropriate type. 

The rules specif ieijf or Move Zeros are. applicable. 



3.2.9 Concatenate { CAT3N, COPXl, OPNDl, .. .OPNDN 



Movejetch of the N fields denoted by OPNDl through OPNDN in 
theforder specified into an output string starting at the 
location denoted by COPXl. 

Each field is moved according to the rules specified for Move 
Alphanumeric. 

|lf the destination length is greater in size than the combined 
source length, . the destination field is filled in on the right 
with trailing spaces (0100 0000 if EBCDIC or 0010 0000 if ASCII.) 

If the destination length is lesser in sire than the combined 
source lengths, the source data is truncated on the right. 
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3.2.10 Scaled Move Numer ic | SMVN OPND , COPX 1, V, SCL 1 

If V=0, perform a Move Numeric operation after first adding the 
scale factor to the field length of the source field and assuming 
that the added portion of the field are zeros. ;, u 

If V=l, perform a Move Numeric operation after first subtracting 
the scale factor from the field length of the source field. 

All rules specified for Move Numeric are applicable after adjust- 
ment by the scale factor. 

The container size for the scale factor is the same as the con- 
tainer size for the length of an operand (LENB). 



3.2.11 Move Tra nslate | MVT V, OPNDl , COP XI 



Move 8-bit units from theforigin location denoted by OPNDl to the 
destination location denoted ;by COPXl translating enroute. 

If V-0, the translation is ASClPto EBCDIC. If V=l, the translation 
is EBCDIC to ASCII. 

The data type of the source, and destination fields are. ignored and 
are assumed frcfc^be unsigned 8- bit. 

If the destination length is greater in size than the source length, the 
destination field is filled in on the right with trailing spaces 
(0100 0000 if EBCDIC or 0010 0000 if ASCII). 

If the destination length is lesser in size than the source length, 
tlie source data is truncated on the right. 

Total overlap of operand field is permitted to allow in place 

translation. 
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3.2.12 



Examine | EXA M,T, COPX1 , OP.ND1 , C0PX2 r OPND2~ 



Examine the operand defined by COPX1 , tallying 
$nd/or replacing a variable number of 8-bit 
characters.. The particular 8-bit character'-;^ 
to be tallied and or replaced is specified 
by OPND1. The character to be used as the - 
replacement character is specified by 0PND2 . 
The field into which the tally is stored is 
specified by COPX2 . V, 

The type of operation is specified by the 
parameter T=T,T„T T / as follows;, 

•■ 12 3 4 '>.;.•■■:•. 'fa* 



T T 



T T 
L 3 4 



00 undefined ^liliiSIIiiiilllft! 

01 Tally T„ T, occnrrtiaces- of the character 
specified by 0PiND2 . %|§|: 

10 Replace T„T occurrences' of the character 
specified by 0PND2 . 

11 Tally and replace T„T^ occurrences of the 
character specified by 0PND2 . 

00 ALL "^lillPlSlli 

01 Call) Leading 

10 Until First . 

11 First 



N0TE:'"7TjT 2 T T ~ 0111 and 1111 not specified 
and results are undefined. 

jffe 0PND2 argument is not present when T.T_ =01. 
;:The C0PX2 argument is not present when T-T 2 = 10. 

fThe data type of the examined operand is 
lassumed to be unsigned 8-bit. 

|The data type of the examining operand defined 
by OPNDl must be unsigned. Its length is 
assumed to be one. When 4-bit format is specified, 
the operand is assumed to have the 4-bits 1111 if EBCDIC or 
0010 if ASCII appended to the left. 
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3.2.12 Con't. f' 

The data type of the replacing operand defined by OPND2 
must.be unsigned. Its length is assumed to be one. .....When 

4-bit format is specified, the leftmost 4 bits of the . 
position replaced U set to the 4 bits 11.11 if EBCDIC or 0011 
if ASCII and the rightmost 4 bits receives the 4 bits from the 
replacing source. When 8-bit format is specif ied,^the 
position replaced receives all 8 bits from the replacing source. 

The. data type of the tally field defined by COPX2 is assumed 
to be unsigned 4-bit. Its length is assumed to be five. 

The parameter M=0 denotes numeric items. ..Only the right- 
most 4 bits of a character are used in comparing. The left- 
most 4 bits, are ignored. 

The parameter M=l denotes/: alphanumeric "items. All 8-bits 
of a character are used in comparing. 
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3.2.13 E dit Instructions and Edit Micro-Operators 

No restrictions are placed on the data type of the source field 
of an Edit operation. ., 

The data type of the destination field of an Edit operation 
must be Unsigned 8-bit. _,«;•/ 

If the destination length' is greater in sizeftnan the source 
length, the source data is assumed to : Jhave leading zero fill 
on the left. {\ 

If the destination length is lesser in size than the source 
length, the source data is truncated on the. left. 

The operation is terminated by an edit micro-operator and not 
by exhaustion of either the source or destination fields. 



3.2.13.1 Edit [ EDT OPNDl, COPXl, DADDR 1 



Move data from the source location denoted by OPNDl to the 
destination location denoted by COPXl under the control of 
the micro-operator string contained at the location denoted 
by the DADDR. 

The argument DADDR is, an unsigned binary value which specifies 
the digit displacement of the micro-operator string relative 
to the Data Segment zero base. The container size of DADDR 
is.DISPB. 



3.2.13.2 Edit with Exp licit Mask [ EDTE OPNDl, COPXl, MASK 



n Move^data from the source location denoted by OPNDl to the 
?€istination location denoted by COPXl under the control of 
the micro-operator string immediately following COPXl. The 
format of the explicit micro-operator string is the same as 
a literal and is as follows: 



bits 



LTYPE 



LLGTH 1 



01: 8-bit 
unsigned 



LLGTH 2 



8 



MICRO -OPERATOR STRING 



Present if LLGTH 1=0 



Length of the 

micro- operator 

string in 8-bit 

units. If length exceeds 7 units, the length 

is encoded in LLGTH2 with LLGTIIl = 
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3.2.13.3 Ed it Micro-Operators f 

The edit micro-operators used in an edit instruction are: 



OPERATOR 


MNEMONIC 


OPERATION 


0000 R 


MVD 


Move Digits 


0001 R 


MVC 


Moyj , & Ch ar a c te r s 


0010 R 


MVS 


Move Suppress 


0011 R 


FIL 


Fili%|uppress 


0100 N 


SRD 


vSkip Reverse Destination 


0101 T 


INU 


Insert Unconditionally 


0110 T 


INM 


Insert on Minus 


0111 T 


INS 


Insert Suppress 


1000 T 


INF 


1 Insert Float 


1001 T 


EFM 


End Float Mode 


1010 0000 


^g§Ql^W 


End Non-Zero , [ 


1010 0001 


ji!te! '' :m ^Sp9 


End of Mask 


1010 0010 


f ^%im, SZplet Z=l 


Start Zero Suppress 


1010 0011 


CCP P 


Complement Check Protect 


Others 




Undefined 



"R" indicates a 4-bit binary value used as a repeat count. 
The value 0000 represents no repeat, do it once. 

"N" indicates a 4-bit binary value used to skip over a number 
of destination 8-bit units. The value 0000 represents no 
•skip. 

"T" indicates a 4-bit binary value which is 1) used to index 
into a table of editing constants or 2) used to indicate a 
conditional selection between two table constants or 3) used 
to indicate an editing constant in line with the edit-operator 
string. The next edit-operator follows the constant. 

The following table indicates the normal table editing constants 
as well as the conditional and unconditional selection of con- 
stants associated with the value "T". 



BURROUGHS CORPORATION 
SYSTEMS MH GROUP 
SMALL SYSTEMS PLANT 



COMPANY CONFIDENTIAL 
COBOL S-LANGUAGE 
P.S. #2201 6729 



PAGE 25 



3.2.13.3 (Cont'd.) 



EDITING CONSTANTS 



T 


TABLE ENTRY 


MNEMONIC 




EBCDIC 




0000 


"+" 


PLU 


0001 


II _ II 


MIN 


0010 


lt>»-tl 


AST 


0011 


II 11 


DPT 


0100 


II It 
» 


CMA 


0101 


«$« 


CUR 


0110 


"0" 


ZRO" gimmmmmS, 


0111 


II II 


BLK ''^(ll;:*® 


1000 




. " SM '"''Ifen, 


1001 




SBM 


1010 




LIT 



UNCONDITIONAL OR . 
CONDITIONAL CONSTANT 



Either Entry or 1 
Either Entry 7 or 1 
In-Line 8-bit Constant 



Associated with the edit instructions are three 
toggles denoted as "S n for sign, "Z" for zero 
suppress and "P" for check protect. Initially 
the "Z" and the I'l^'L toggles- are assumed to 
be set to the zero^ttate. They are set and 
reset as specified by the description of the 
individual micro-operators . The "S" toggle 
is set to zero if the§source field sign is 
positive and to;|bneI6therwise. Unsigned fields 
are considered positive. 

Move Digit 

,-Set "Z" to M 1 M ending the zero suppress state. 
Move an appropriate unit (4-bit digit or 8-bit 
character) from the source field to the destination 
; field. If a 4-bit unit is moved, append the 
14- bits 1111 to the left before storing in the 
destination. If an 8-bit unit is moved, the 
4-bits 1111 are substituted for the leftmost 
4bits of the 8-bit unit. 

Move Character 



Set "Z" to "1" ending the zero suppress state. 
Move an appropriate unit (4-bit digit or 8-bit 
character) from the source field to the destination 
field. If a 4-bit unit is moved, append the 
4 bits 1111 to the left before storing in the 

destination. If an 8-bit unit is moved, it is 
•moved unchanged . 
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.3.2.13 (Con't.) 

Move Suppress 



The micro-operation move digit is performed ; f;§» h 

if the 4-bit unit or the rightmost 4 bits 

of the 8-bit unit of the source field is not „ 
equal to 0000. *^%jfl[ 

If the appropriate 4 bits of the source field 
unit is equal to 0000, the suppress toggle 
"Z" is inspected. If "Z" equals "1" indicating 
non- suppress mode, the micro-operation move 
digit is performed. If the suppress toggle "Z M 
equals "0", the check protect toggle "P" is 
inspected. If "P M = "0" indicating non-check 
protect mode, move the table entry containing 
the 8-bit code for blank to the destination 
field. If P=l, move the table entry containing 
the 8-bit code for asterisk to |the destination 
field. "W&lm, 



• Siimrna ry 



Move 


digit 












Move 


digit 












Move 


Table 


Entry 


7 


(bl 


ank) 




Move 


Table 


Entry 


2 


(as 


teris 


ik) 



Sourlfl;^ 

Z=l ' Source ~ 

Z=0 P=0 Source = 

Z=0 P=l Source = Q 

Fill Suppress 



|ff "P'g f "0" indicating non-check protect 
mode, move the table entry containing the 8-bit 
code for blank to the destination field. If 
I^P" ='""14% move table entry containing the 
8-bit code for asterisk to the destination 
field. 



Summary 



P = More Table Entry 7 (blank) 
P = 1 Move Table Entry 2 (asterisk) 



Skip Reverse Destination 

Adjust the address pointer of the destination 
field to skip backward (lower address) "N" 
8-bit units. 
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3.2.13 (Cont'd.) . . *'• 

Insert Unconditionally #•••• " 

Move the table entry "T M as indicated below to; the destination 

field. . ' JlPlil 



Move Table Entry T "^! 
Move Table Entry (Plusjfe 
Move table Entry 1 (Minus) 
Move Table Entry 7 (Blank) 
Move Table Entry 3. (Minus) 
Move in- ling Tabic Entry 



Move the table entry "T" as indicated below to the destination 
field. 







T= 


=0.. 


,.7 


s= 


=0 


T= 


=8 




s= 


= 1 


T= 


=8 




s= 


=0 


T= 


=9 




s= 


= 1 


T= 
T= 


=9 
=10 




Insert 


on 


Minus 



S=l 


T=0...7 


S=0 P=0 




S=0 P=l 




s=o 


T=8 f|§ 


S=l 


T=8 


S=l 


T=9 


S=l 


T=9^1ft|^, 


S=l 


T=10 '" n 'l|J 


Insert §u 


ppress 


Z=lJ$ 


' ;n -^|ib. 


Z=0 P=0 




Z^0 P--1 




Z=l 


S=0 T=8 


•z»i 


S=l T=8 


z==l 


S=0 T=9 


Z=l 


S=l T=9 


Z=l 


T=10 



fHgye 

Move 

|Moy<|: 

|Hov|; 

^irye 

Move 



Table 
Table 
Table 
Table 
Stable 
Table 
Table 



Entry T ' 
Entry 7 (Blank) 
Entry 2 (Asterisk) 
Entry (Plus) 
Entry 1 (Minus) 
Entry 7 (Blank) 
Entry 1 (Minus) 



Move in-line Table Entry 



.7 Move Table Entry T 

Move Table Entry 7 (Blank) 

Move Table Entry 2 (Asterisk) 

Move Table Entry (Plus) 

Move Table Entry 1 (Minus) 

Move Table Entry 7 (Blank) 

Move Table Entry 1 (Minus) 

Move in-line Table Entry 
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3.2.13 (Con't.) 

Insert Float 



Move the table entry "T"' and/or perform the : ;vrf'5 
micro-operation move digit as indicated below.! 



Z=l 

Z=0 Source =0 P=0 
Z=0 Source =0 P=l 
Z=0 Source ^0 T=0...7 
Z=0 Source ^0 T=8 S=0 
Z=0 Source ^0 T=8 S=l 
Z=0 Source ^0 T=9 S=0 
Z=0 Source /0 T=9 S=l 
Z=0 Source 5*0 T=10 

End Float Mode 



Move digit 

Move table entry 7 (blank) 

Move table entry 2 (asterisk) 

Move table entry T, then move digit 

Move table entry (plus) then move digit. 

Move table entry l(minus)then move digit. 

Move tablemen try 7 (blank) then move digit. 

MoveJtfiblB-entry l(minus)then move digit. 

Move in-line table entry, then move digit. 



Move the table entry "T M as indicated below to 
the destination field. f;"H, 



Z=0 T=0...7 
Z=0 S=i T=8 
Z=0 S=0 T=8 
Z=0 S=I T=9 
Z=0 S=0 T=9 
Z*=0 . T=10 
Z=l No operation 

Endl'Non-Zero 



Move tabjjc entry T 
Move. table entry 1 
Move liable entry 
Move table entry 1 
Move table entry 1 . 
Move in-line table entry 



Terminate the micro-operator operations if 
any non-zero source character/digit is moved; 
Igtherwise continue with the next in-line operator, 

lEricT of Mask 

Terminate the micro-operator operations. 

Start Zero Suppress 

Set "Z" to the zero state. 

Complement check protect 

Complement the state of "P". 
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3.3 Branching Operands and Instructions ~. '■ 

A branch address argument "BADDR" can be any one of four types 
as specified below. Restrictions as to type for a specific 
instruction are specified in the description of the individual 
instruction. ,J1P'" 

BADDR has the following format: 



1 BTYPE 1 SEGMENT NUMBER j D ISPLACEMENT 



BITS 2 I 7 -Variable (See BDISPB) for type 10, 11 

Present if BTYPE=10 , 

'-Fixed to ; ffcje specified for type 00, 01 



00: Relative to beginning of this byte in a positive direction. 
01: Relative to beginning of this byte in a negative direction. 
10: Relative to a new code Segment Base (inter segment branch). 
11: Relative to the current code Segment Base (intra segment branch) 

Displacement is an.unsigned binary value which specifies the bit dis- 
placement of an instruction relative to itself or to a segment base. 
The container size of the displacement is fixed (to be specified) 
for type 00 and 01 and is a program parameter (BDISPB) for type 10 
and 11. 



3.3.1 Branch Unconditionally \ BUN BADDR | 



Obtain the next instruction from the location specified by BADDR. 



3.3.2 Branch on Overflow BOF V, BADDR 



If the overflow toggle = V, a transfer to the address (BADDR) given 
. ; ff';in the instruction occurs. Control is passed to the next sequential 
v v ; r.V instruction otherwise. 

, ; , The overflow toggle is unchanged. 

3.3.3 Set Overflow-Toggle [ OFL V j 



Set the overflow toggle to V. 

Note: The overflow toggle is set to 1 when divide by zero is 
encountered. 
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'3.3.4 Perform Enter PERF K, BADDR 



3.3.7 



Format a stack entry with the following format: 

EX 



BTYPE 



SEGMENT NO. 



DISPLACEMENT 



BITS 



8 



124: 



Obtain the 8-bit value K and the 2-bit value BTYPE from the 
instruction and insert it into the stackv^Jr%^ 

If the BTYPE inserted is 10, insert the current segment 
number into the stack. 

Insert a displacement value relative to the active base and 
pointing to the next sequential S-Instruction into the stack. 

Adjust the stack pointer (STKPTR) to point to the next possible 
entry. 

Obtain the next instruction from the location specified by BADDR. 

pxitIT] 



3.3.5 Perform Exit 



Compare the 8-bit value K with the K in the current stack entry 
and if unequal proceed to the next in-line S-Instruction. If 
equal, adjust the stack position (STKPTR) to point to the pre- 
vious entry and obtain the next S-Instruction from the informa- 
tion contained in the removed stack entry. 



3.3.6 Entef" 



NTR BADDR 



Same. function as "PERF". K is assumed equal to 0. 
Exit 



XIT 



fSame function as "PXIT". K is assumed equal to 0. 
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3.3.8 Go To Depending JGTDCOPX1, N,. BDISPO, . . .BDISPN J ' 



Compare the 10 bit binary value N with the variable specified by 
COPXl. The variable is first converted to a binary value modulo 

2 2 \ : ■ -.■•■ ■•:■■ • MttHk ""* 



If the binary value of the variable is less than zero or greater 
than N, the next instruction is obtained from the location speci- 
fied by BDISPO. Note that the variable can be. signed. 

If the binary value of the variable is in" "the range zero to N, it 
is used as an index to select from the list of BDISP* s the appro- 
priate BDISP to be used to obtain the next instruction. 

BDISP is a unsigned binary value which specifies the bit displace- 
ment of an instruction relative to the current segment base. The 
container size of BDISP is BDISPB. • 



3.3.9 Altered Go To Paragraph """ | GOPAK^ DADDR 



Obtain the next instruction from the location specified by the 
address constant "ACON". . ; 

The address' cdii|tant "ACON" has the same format as a BADDR. 

The argument DADDR is an unsigned binary value which specifies 
the digit displacement of the "ACON" relative to the Data Segment 
Zero Base.. 

The container 'size of DADDR is DISPB. 



3.3.10 Alter {ALTER DADDR, ACON 



Copy the address constant "AC0N M into the data area specified by 
the argument DADDR. 

;BTYPE - 00 and 01 (relative branches) are not permitted in the 
"ACON". 



See section 3.3. 9 for definition of DADDR and ACON. 
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3 . A Conditional Branch Operands and Instructions 

The two operands are compared and the result (greater, less, 
equal) is in turn compared to the relation (R) (greater, 
less, equal, not equal, greater or equal, less or equal) 
being tested, If the relation condition is met a transfer 
to the address (BADDR) given in the instruction occurs. 
Control is passed to the next sequential instruction other- 
wise. The relation (R) is defined as follows: 



000 Undefined 

001 GTR 

010 LSS ■'■-."•• 

011 NEQ .".'"■"'• 

100 EQL 

101 GEQ 

110 LEQ 

111 Undefined 

No overlap of fields is. ''■■■permitted. Results generated under 
any condition of overlap are not specified. 



3.4.1 Compare Alphanumeric j CPA OPNDl, COPXl , R, BADDR" 



Compare the twofoperanci fields according to their binary 
value. '^^lllfe 

Comparison proceeds from left to right. 

Wh§ff : the field sizes are different and the equal size portions 
.£oriipate equal, the longer field is tested for trailing blanks 
^(0100 0000 if EBCDIC or 0011 0000 if ASCII). 

t£he fields are considered equal when the equal size portions 
||re equal and the longer (if one is longer) field has 
trailing blanks. 

.That. field, which has the left most character that is greater 
(less) than the corresponding character in the second field, is 
considered the larger (smaller). 

Unsigned 8-bit data format is assumed with no checking to verify 
that the data types are both unsigned 8-bit. 
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3.4.2 Compare Numeric | CPN OPNDl , COPXl , R, BADDR 



Compare the two operands fields according to their algebraic 
value considering the two fields to be comprised of decimal 
integers. 

When the field sizes are different, the longer is tested for 
leading zeros (0000). There is no restriction as to data 
type. In comparing an 8-bit character only the right-most 
4 bits of the character are considered. The other bits are 
ignored. 

Two fields of all zeros are equal regardless of sign. 

Unsigned fields are considered positive. " Sign conventions 
are the same as for arithmetic operands. 

Results generated-by invalid digits values are undefined. 

3.4.3 Compare for Zeros 1 ZRQ C OPXl f R , B ADDR | 

Compare two operand fields according to their absolute binary 
value considering the second field to be comprised of all zeros 
(0000). 

There is no restriction as to data type. In comparing an 8-bit 
character .only the right-most 4 bits of the character are 
considered. The^other bits are ignored. In comparing signed, 
4-bit format, the sign position is ignored. 

3.4.4 Com pare for SPACES 1 SPA C0PX2 , R, BAD DR 1 

Compare two operand fields according to their binary value 
• considering the second field to be comprised of all spaces 
/f:9 (0100 0000 if EBCDIC or 0011 0000 if ASCII). 



Unsigned 8-bit format is assumed with no checking to verify 
otherwise. 
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3. A. 5 C ompare for Class [CLASS COPXl , C, BADDR 



Compare the operand field and determine whether the field is: 

C=00 completely alphabetic 
01 completely numeric 

10 not completely alphabetic 

11 not completely numeric 

If the condition being tested is true;!|Ca| transfer to the 
address BADDR given in the instruction occurs. Otherwise 
control is passed to the next sequential instruction. 

In the alphabetic test, each character is range-checked 

for 1100 0001 through 1100 1001, 1101 0001 through 

1101 1001, 1110 0010 through 1110 1001 and for 0100 0000 

In the numeric test, eacfeSharacttr is range-checked for 1111 0000 
through 1111 1001 and each digit is range- checked for 
0000 through 1001. A sign in the sign position for signed 
data will not affect the outcome of a numeric test. 



"%m 
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3.4.6 Compare Multiple 



CPM BADDR, COPX2, Rl, OPNDl... R , OPND ,Rk 
' n n 



Compare the first operand field with each of the subsequent N 
operand fields under control of the variant denoted by the 
first bit of the relation (Ri) associated with the specific 
operand OPNDi. 

The relation (R) is a four bit field which iijjdefined as follows: 

R = OXXX compare alphanumeric ? . ?^| 
1XXX compare numeric 

XXX = 000 QUIT 

001 GTR 

010 LSS ns ^i;**ilP 

011 NEQ 

100 EQL" 

101 GEQ 

110 LEQ 

111 undefined 

The individual comparisons follow the same rules as the 
appropriate COMPARE ALPHANUMERIC OR COMPARE NUMERIC. 

The Instruction is terminated when: 

A) one of tii<0 relations is met in which case program 
•' ,-.... control passes to the address BADDR or, 

,47 ? B) Rk *• 000 is found in which case program control 
passes to the next sequential instruction. 



3.4.7 Compare Repeat | CRPT OPNDI, COPXl, R, BADDR 



IIGpmpare the two operand fields according to their binary value. 

Comparison proceeds from left to right. 

The field lengths are considered equal by repeating OPNDl. 

Both fiells are assumed to have unsigned 8-bit data type. 

The size of OPNDl must be greater than 2 and must divide evenly 
into the size of COPXl. Otherwise, the results of the compare 
may be erroneous. 
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Miscellaneous Instruction 



3.5.1 Communicate 



COMM COPX1 
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Move the length and address fields from;;|flie :; ; ; COPXl-^entry to the RS 
COMMUNICATE MSG PTR field located in this program RS NUCLEUS con- 
verting then enroute. The origin field is unchanged. 

The length is converted from a digit or character length to a bit 
length. The address is converted from the "Data Segment Zero Base 
Relative Address to the Base Register Relative' Address. 



3.5.2 Fetch 



FCMP DADDR 



3.5.3 



Move the last 24-bits of information from the RS COMMUNICATE MSG 
PTR to the located specified by DADDR. 

See section 3.5.4 for definition of DADDR. 

Convert 



CNV rOPNDl ;; DADDR 



Convert the u operand" 3d end ted by 0PND1 from a decimal value to an 
unsigned 24-bit binary, value truncating or zero filling on the 
left, if necessary. . •■':.' 

The o||rand must^jbe either unsigned 4-bit or unsigned 8-bit units, 
Place the result at the location specified by DADDR. See section 
3.5,4 for definition of DADDR. 



3.5,4 il%ad -Data Segment N 1 LDSN DSEGN, DADDR 



.Load the data segment specified by DSEGN and place the Base rela- 
tive address of the segment at the location specified by DADDR. 

The container size of DSEGN is SEGB. 

'DADDR is an unsigned binary value which specifies a digit dis- 
placement from the Data Segment Zero Base. 



The container"- size of DADDR is DISPB. 



